home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
gsdb21.arc
/
DB_XPL09.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-04
|
718b
|
29 lines
program DB_Xpl09;
uses
CRT,
DOS,
GS_dBFld,
GS_dBase;
var
Health : GS_dBFld_Objt;
begin
ClrScr;
Health.Init('HEALTH');
Health.Open;
Health.IndexTo('FOODCODE','FOOD_CODE');
{Create an index. Use field FOOD_CODE}
{and create a .NDX file named FOODCODE}
Health.Index('FOODCODE'); {Use Index FOODCODE.NDX}
Health.GetRec(Top_Record);
while not Health.File_EOF do
begin
writeln(Health.FieldGet('FOOD'),' ',
Health.FieldGet('CALS'),' (',
Health.FieldGet('FOOD_CODE'),')');
Health.GetRec(Next_Record);
end;
Health.Close;
end.